  �2  d   k820309    �          2021.12.0   �("g                                                                                                          
       B:\1.) Business Cycles and Insurance - Paper\JPE Macro - Final Revisions\Computation\Final Submission\BCI_SS\BCI_SS\BCI_TB.f90 BCI_TB                      @                                      
                                                                   
                                                                                                                   11                                                                                                                                                                                                                           2                                                          
                
                       �?        0.50                                                          
                
                       �?        0.50                                                          
                   
                  =�U����?                                                             	     
                
                 F]k�SU�?        0.333333                                                     
     
                
                                 0.0                                                          
                   
                  �.\sG�?                                                                  
                
                 �(\����?        0.53                                                          
                
                       �?        1.0                                                                                                B                                                                                                                           3                                                                                                            2                                                          
                
                        @        2.0                                                                                             2               50                                                                                             �               250                                                          
                   
                      e���                                                                  
                
                 �G�z�?        0.345                                                                                             �               160#         @                                                                #XGRID    #XVAL    #X_LOW    #X_HIGH    #NX    #IX    #OMEGA_X             
                                                              
    p          5 O p            5 O p                                    
                                               
                
                                                                
                                                                
                                                                                                                                                                              
       #         @                                                                #SWITCH_SCENARIO     #UPSILON_D !   #UPSILON_R "   #UPSILON_BAR #             
                                                                 D                                         !                   
     p          p            p                                    D                                         "                   
     p          p            p                                    D                                         #                   
     p          p            p                          #         @                                            $                    #N %   #XI &   #LAMBDA '   #UPSILON_D (   #PI )             
                                           %                     
                                          &     
                
                                          '     
                
                                          (     
               D                                         )                    
       p        5 � p        r %   p          5 � p        r %     5 � p        r %       5 � p        r %     5 � p        r %                     #         @                                            *                    #NI +   #NE ,   #NN -   #NB .   #PI_E /   #PI_N 0   #E_INDEX 1   #N_INDEX 2   #B_INDEX 3   #I_INDEX 4   #PI_I 5             
                                           +                     
                                           ,                     
                                           -                     
                                           .                    
                                          /                    
      p        5 � p        r ,   p          5 � p        r ,     5 � p        r ,       5 � p        r ,     5 � p        r ,                              
                                          0                    
      p        5 � p        r -   p          5 � p        r -     5 � p        r -       5 � p        r -     5 � p        r -                              D                                          1                         p          5 � p        r +       5 � p        r +                              D                                          2                         p          5 � p        r +       5 � p        r +                              D                                          3                     	    p          5 � p        r +       5 � p        r +                              D                                          4                     
        p        5 � p        r -   p        5 � p        r ,   p          5 � p        r ,     5 � p        r -     5 � p        r .       5 � p        r ,     5 � p        r -     5 � p        r .                              D                                         5                    
         p        5 � p        r +   p        5 � p        r +   p          5 � p        r +     5 � p        r +     p            5 � p        r +     5 � p        r +     p                          #         @                                            6                    #NZ 7   #RHO_Z1 8   #RHO_Z2 9   #PI_Z :   #CUM_Z ;             
                                           7                     
                                          8     
                
                                          9     
               D                                         :                    
       p        5 � p        r 7   p          5 � p        r 7     5 � p        r 7       5 � p        r 7     5 � p        r 7                              D                                         ;                    
       p        5 � p        r 7   p          5 � p        r 7     5 � p        r 7       5 � p        r 7     5 � p        r 7                     #         @                                            <                    #BETA =   #CHI >   #CONSUMPTION ?   #EV @   #U_VAL A             
                                          =     
                
                                          >     
                
                                          ?     
                
                                          @     
                D                                         A     
       #         @                                            B                    #ND C   #XGRID D   #DISCOUNT E   #IB F   #MINB G             
                                           C                    
                                          D                    
    p          5 � p        r C       5 � p        r C                              
                                          E                    
    p          5 � p        r C       5 � p        r C                               D                                          F                      D                                         G     
       #         @                                            H                    #IBAR I   #BETA J   #CHI K   #A_VAL L   #INCOME M   #DISCOUNT N   #AGRID O   #EV P   #MAXV Q   #MAXG R   #MAXC S   #MAXQ T             
                                           I                     
                                          J     
                
                                          K     
                
                                          L     
                
                                          M     
                
                                          N     2              
    p          p 2           p 2                                   
                                          O     �              
    p          p �           p �                                   
                                          P     �              
    p          p �           p �                                   D                                         Q     
                 D                                         R     
                 D                                         S     
                 D                                         T     
       #         @                                            U                 	   #NX V   #E_INDEX W   #N_INDEX X   #UPSILON_R Y   #GAMMA_J Z   #EGRID [   #I_INCOME \   #J_INCOME ]   #INCOME_GRID ^             
  @                                        V                     
                                           W     B                  p          p B           p B                                   
                                           X     B                  p          p B           p B                                   
                                          Y     
                
                                          Z     �              
    p          p �           p �                                   
                                          [                   
    p          p            p                                   D                                          \                         p          5 � p        r V       5 � p        r V                              D                                          ]                         p          5 � p        r V       5 � p        r V                              D @                                       ^                    
     p          5 � p        r V       5 � p        r V                     #         @                                            _                    #CUM_PI `   #RAND_X b   #NX a   #IX c            
  @                                       `                    
    p          5 � p        r a       5 � p        r a                               
  @                                       b     
                
  @                                        a                     D                                          c               �   �      fn#fn    .  H   J   BCI_PAR    v  H   J   FORTRAN_TB    �  z       NE+BCI_PAR    8  x       RP+BCI_PAR    �  y       NZ+BCI_PAR #   )  |       UPSILON_DG+BCI_PAR #   �  |       UPSILON_RG+BCI_PAR &   !  x       UPSILON_BAR_G+BCI_PAR #   �  �       UPSILON_DB+BCI_PAR      {       ZERO+BCI_PAR &   �  x       UPSILON_BAR_B+BCI_PAR #     |       UPSILON_RB+BCI_PAR    �  {       ONE+BCI_PAR      x       NI+BCI_PAR    {  y       NN+BCI_PAR    �  y       NB+BCI_PAR    m  {       SIGMA+BCI_PAR    �  z       ND+BCI_PAR    b	  {       NA+BCI_PAR #   �	  x       DISUTILITY+BCI_PAR    U
  }       Y_BAR+BCI_PAR    �
  {       NJ+BCI_PAR )   M  �       INTERPOLATION+FORTRAN_TB /   �  �   a   INTERPOLATION%XGRID+FORTRAN_TB .   �  H   a   INTERPOLATION%XVAL+FORTRAN_TB /   �  H   a   INTERPOLATION%X_LOW+FORTRAN_TB 0   "  H   a   INTERPOLATION%X_HIGH+FORTRAN_TB ,   j  H   a   INTERPOLATION%NX+FORTRAN_TB ,   �  H   a   INTERPOLATION%IX+FORTRAN_TB 1   �  H   a   INTERPOLATION%OMEGA_X+FORTRAN_TB    B  �       UI_POLICIES ,   �  H   a   UI_POLICIES%SWITCH_SCENARIO &     �   a   UI_POLICIES%UPSILON_D &   �  �   a   UI_POLICIES%UPSILON_R (   V  �   a   UI_POLICIES%UPSILON_BAR     �  �       EMP_TRANSITIONS "   t  H   a   EMP_TRANSITIONS%N #   �  H   a   EMP_TRANSITIONS%XI '     H   a   EMP_TRANSITIONS%LAMBDA *   L  H   a   EMP_TRANSITIONS%UPSILON_D #   �  ,  a   EMP_TRANSITIONS%PI     �  �       IND_TRANSITIONS #   �  H   a   IND_TRANSITIONS%NI #   �  H   a   IND_TRANSITIONS%NE #     H   a   IND_TRANSITIONS%NN #   Z  H   a   IND_TRANSITIONS%NB %   �  ,  a   IND_TRANSITIONS%PI_E %   �  ,  a   IND_TRANSITIONS%PI_N (   �  �   a   IND_TRANSITIONS%E_INDEX (   �  �   a   IND_TRANSITIONS%N_INDEX (   r  �   a   IND_TRANSITIONS%B_INDEX (   .  �  a   IND_TRANSITIONS%I_INDEX %   �  |  a   IND_TRANSITIONS%PI_I     F  �       AGG_TRANSITIONS #   �  H   a   AGG_TRANSITIONS%NZ '     H   a   AGG_TRANSITIONS%RHO_Z1 '   [  H   a   AGG_TRANSITIONS%RHO_Z2 %   �  ,  a   AGG_TRANSITIONS%PI_Z &   �  ,  a   AGG_TRANSITIONS%CUM_Z    �   �       UTILITY    �!  H   a   UTILITY%BETA    �!  H   a   UTILITY%CHI $   "  H   a   UTILITY%CONSUMPTION    Z"  H   a   UTILITY%EV    �"  H   a   UTILITY%U_VAL     �"  �       BORROWING_LIMIT #   m#  H   a   BORROWING_LIMIT%ND &   �#  �   a   BORROWING_LIMIT%XGRID )   q$  �   a   BORROWING_LIMIT%DISCOUNT #   -%  H   a   BORROWING_LIMIT%IB %   u%  H   a   BORROWING_LIMIT%MINB    �%  �       GRID_SEARCH !   �&  H   a   GRID_SEARCH%IBAR !   �&  H   a   GRID_SEARCH%BETA     '  H   a   GRID_SEARCH%CHI "   b'  H   a   GRID_SEARCH%A_VAL #   �'  H   a   GRID_SEARCH%INCOME %   �'  �   a   GRID_SEARCH%DISCOUNT "   �(  �   a   GRID_SEARCH%AGRID    *)  �   a   GRID_SEARCH%EV !   �)  H   a   GRID_SEARCH%MAXV !   *  H   a   GRID_SEARCH%MAXG !   V*  H   a   GRID_SEARCH%MAXC !   �*  H   a   GRID_SEARCH%MAXQ $   �*  �       INCOME_DISTRIBUTION '   �+  H   a   INCOME_DISTRIBUTION%NX ,   �+  �   a   INCOME_DISTRIBUTION%E_INDEX ,   �,  �   a   INCOME_DISTRIBUTION%N_INDEX .   ,-  H   a   INCOME_DISTRIBUTION%UPSILON_R ,   t-  �   a   INCOME_DISTRIBUTION%GAMMA_J *   .  �   a   INCOME_DISTRIBUTION%EGRID -   �.  �   a   INCOME_DISTRIBUTION%I_INCOME -   h/  �   a   INCOME_DISTRIBUTION%J_INCOME 0   $0  �   a   INCOME_DISTRIBUTION%INCOME_GRID    �0  x       FUTURE_INDEX $   X1  �   a   FUTURE_INDEX%CUM_PI $   2  H   a   FUTURE_INDEX%RAND_X     \2  H   a   FUTURE_INDEX%NX     �2  H   a   FUTURE_INDEX%IX 